-- card: 27281 from stack: in -- bmap block id: 27436 -- flags: 4000 -- background id: 25947 -- name: TD Department -- part 1 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=112 top=184 right=202 bottom=242 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Department -- part 2 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=12 top=185 right=201 bottom=241 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Department ----- HyperTalk script ----- on mouseDown global checkLoc3 if first item of the clickLoc >= 104 then get the rect of me put item 1 of it + 92 into horz put item 2 of it into vert set hilite of me to true put "NA ,Commerce,English," into menuList put "French,Home Economics,Industrial Ed.,Mathematics," after menuList put "Physical Educ...,Science,Social Studies" after menuList put PopUpMenu(menuList,vert,horz,checkLoc3) into temp if temp > 0 then put item temp of menuList into card field "Department" put temp into checkLoc3 end if set hilite of me to false end if end mouseDown on mouseDown global checkLoc1 if first item of the clickLoc >= 147 then get the loc of card window put item 1 of it + 147 into horz put item 2 of it + 134 into vert put "NA,Commerce,English,French,Home Economics," into menuList put "Industrial Ed.,Mathematics,Physical Educ...," after menuList put "Science,Social Studies" after menuList set hilite of me to true put PopUpMenu(menuList,vert,horz,checkLoc1) into temp if temp <> 0 then put temp into checkloc1 put item temp of menuList into card field "Department" end if set hilite of me to false end if end mouseDown -- part 3 (field) -- low flags: 01 -- high flags: 0007 -- rect: left=250 top=114 right=260 bottom=494 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 9 -- style flags: 0 -- line height: 16 -- part name: Rooms -- part 4 (field) -- low flags: 01 -- high flags: 0000 -- rect: left=314 top=272 right=290 bottom=494 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Room # -- part contents for card part 1 ----- text ----- NA -- part contents for card part 4 ----- text ----- Unassigned -- part contents for card part 3 ----- text ----- Unassigned 100 Science Lab 102 Science Lab 103 Gymnasium 104 Computer Lab 105 Library 106 Classroom 107 Classroom 109 Classroom 110 Classroom 111 Classroom 112 I.E. Shop 113 Drafting Room 114 Typing Room 115 Home Ec. Room -- part contents for background part 7 ----- text ----- Mrs. Margaret Tesch